
sub test1 () {
	while (<STDIN>){
		$_ =~ s/=".+",/=,/;
		print $_;
	}
}


	$virt[1][1][1]->{desc}= "abcd";
	$x = substr( $virt[1][1][1]->{desc},0,1);
	$firstChar = ($virt[1][1][1]->{desc})[0];
	print "!! $x";
